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FIG.4 



#include <stdio.h> 
#include <string.h> 
#include"mpi.h" 



int 

main(int argc, char * * argv) 
{ 

int my_rank;/ * RANK OF CURRENT PROCESS * / 
int source;/ * RANK OF TRANSMISSION PROCESS * / 
int dest;/ * RANK OF RECEIVING PROCESS * / 
int tag=0;/ * MESSAGE TAG * / 

char messaged 00];/* STORAGE PLACE OF MESSAGE*/ 
MPI_Status status;/* RETURN STATUS OF RECEPTION */ 

/*MPI START UP*/ 
MPIJnit (&argc, argv) ; 

/ * REQUEST RANK OF CURRENT PROCESS * / 
MPI_Comm_rank (MPI_COMM_WORLD. &my_rank) ; 

if (my_rank ! =0) { 
/ * MESSAGE CREATION * / 

sprintf (message, "Greentings from process %d\n", my_rank) ; 
dest=0 ; 

/ *' \USE strlen+1 as 0' is also sent*/ 
MPI_Send (message, strlen (message)+1, MPI_CHAR, dest, tag, 
MPI_COMM_WORLD) ; 
} else { 
source=1; 

MPI_Recv (message, sizeof(message), MPI_CHAR, source.tag, 
MPI COMM_WORLD, &status) ; 
printf ("%s \n" , message) ; 

} 

/ * MPI SHUT DOWN */ 
MPI_Finalize () ; 
return 0 ; 
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FIG.9 



#include <stdio.h> 
#include <string.h> 
#include"mpi.h" 



main(int argc, char * * argv) 

int my_rank;/ * RANK OF CURRENT PROCESS * / 
int source;/ * RANK OF TRANSMISSION PROCESS * / 
int tag=0;/ * MESSAGE TAG * / 

char message[100];/ * STORAGE PLACE OF MESSAGE * / 
MPI_Status status;/ * RETURN STATUS OF RECEPTION * / 

/*MPI STARTUP*/ 
MPIJnit (&argc, argv) ; 

/ * REQUEST RANK OF CURRENT PROCESS * / 
MPI_Comm_rank (MPI_COMM_WORLD. &my_rank) ; 

source=1; 

MPI_Recv (message, sizeof(message), MPI_CHAR, source.tag, 
MPI_COMM_WORLD, Sstatus) ; 
printf ("%s\n", message) ; 

/ * MPI SHUT DOWN * / 
MPI_Finalize() ; 
return 0 ; 
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FIG.10 



#include <stdio.h> 
#include <string.h> 
#include"mpi.h" 



mainOnt argc, char * * argv) 

int my_rank;/ * RANK OF CURRENT PROCESS * / 
int dest;/ * RANK OF RECEIVING PROCESS * / 
int tag=0;/ * MESSAGE TAG * / 

char messaged 00];/ * STORAGE PLACE OF MESSAGE * / 

/*MP\ STARTUP*/ 
MPIJnit (&argc, argv) ; 

/ * REQUEST RANK OF CURRENT PROCESS * / 
MPI_Comm_rank (MPI_COMM_WORLD. &my_rank) ; 

/ * MESSAGE CREATION * / 

sprintf (message, "Greentings from process %d\n , my_rank) ; 
dest=0 ; 

/ *' \USE strlen +1 as 0* is also sent*/ 

MPI_Send (message, strlen (message)+1, MPI_CHAR, dest, tag, 

MPI_COMM_WORLD) ; 

/ * MPI SHUT DOWN * / 
MPI_Finalize () ; 
return 0 ; 
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FIG. 13 



int input; 
int output; 
extern int in; 
extern int out; 



void 

ThO(void) 
{ 

MOVE(&in, &input, sizeof (in)); / * ThO-1 * / 

START(1."Thl"); /*ThO-2*/ 
MOVE(&output, &out, sizeof (output));/ *ThO-3 * / 

} 
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int in; 




int out; 




void 




Thl(void) 




{ 




extern void f1 (int * , int * ); 




fK&in, &out); 


/*Th1-1 */ 


} 
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